perm filename DEFS[NS,SYS]1 blob
sn#102478 filedate 1974-05-23 generic text, type T, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
RECORD PAGE DESCRIPTION
00001 00001
00002 00002
00004 ENDMK
⊗;
APPPN ←←' NSSYS' ;disk area where AP programs live
ERRPRG←←'ERROR ' ;error-handling program
DEBUG←←0 ;NON-ZERO FORCES DOER, GAP TO MOVE SYMBOL TABLE BEFORE READING .DAT
LF←←12 CR←←15 TAB←←11 ALT←←175 FF←←14
LOC 41
JSR UUCODE
LOC
OPDEF UEXIT [001000,,];minor error.
OPDEF UERROR [002000,,];moderate error.
OPDEF UBIGERR [003000,,];horrendous error.
OPDEF UHUNG [004000,,];ENTER failed on TXT file
INTPAR←←400 ;INTERRUPT ON PARITY ERROR
INTPTI←←1000 ;INTERRUPT USED TO CHANGE NAME
XBEGIN←←-1 ;FULL WORD VALUES REPRESENTING SYMBOLS IN KEYW EXPRS: BEGINNING
XTIMES←←1 ; *
XMINUS←←2 ; -
XPLUS ←←3 ; +
XSEQ ←←4 ; #N:M (NEXT WORD HAS N,,M)
XMAX ←←4 ;LAST USED SPECIAL ESCAPE VALUE
RFCS←←200000
RFCR←←100000
CLSS←←40000
CLSR←←20000
INTINR←←100
INTINS←←40
INTTTI←←4
INTINP←←10
DDDLIN←←20000 IIILIN←←400000
; DATA-DISC MACROS AND DEFINITIONS
; COMMAND WORD -- ALTERNATING COMMANDS AND PARAMETERS
DEFINE CW(C1,B1,C2,B2,C3,B3) <
<BYTE (8)<B1>,<B2>,<B3> (3)<C1>,<C2>,<C3>>!4
>
; COMMAND NAMES FOR DD COMMAND BYTES
EXCT←←0 ;EXECUTE
FNCN←←1 ALPHBG←←16 ALPHA←←46 ;FUNCTION, USUAL VALUE BYTES
CHNL←←2 ;CHANNEL SELECT
COLM←←3 ;COLUMN SELECT
HILIN←←4 ;HIGH 5 BITS OF LINE
LOLIN←←5 ;LOW 5 BITS OF LINE